home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / general / Radian.st < prev    next >
Text File  |  2000-02-13  |  421b  |  28 lines
  1. Class Radian :Magnitude
  2. ! value !
  3. [
  4.    new: x
  5.      value <- <primitive 80 (x asFloat) >
  6. |   
  7.    < arg
  8.      ^ value < arg asFloat
  9. |   
  10.    = arg
  11.      ^ value = arg asFloat
  12. |   
  13.    sin
  14.      ^ <primitive 81 value>
  15. |   
  16.    cos
  17.      ^ <primitive 82 value>
  18. |   
  19.    tan
  20.      ^ <primitive 81 value> / <primitive 82 value> "tan() = sin()/cos()"
  21. |   
  22.    asFloat
  23.      ^ value
  24. |   
  25.    printString
  26.      ^ value asString , ' radians'
  27. ]
  28.